-- background: 2627 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on Count
  global ct
  repeat with i=1 to ct
    set the lockscreen to true
    choose select tool
    drag from (i-2)*3+4+(31*(i-1)+86),301 to ((i-2)*3+4+(31*(i-1)+86))+30,323
    domenu "Invert"
    set the lockscreen to false
    set the lockscreen to true
    choose select tool
    drag from (i-2)*3+4+(31*(i-1)+86),301 to ((i-2)*3+4+(31*(i-1)+86))+30,323
    domenu "Invert"
    set the lockscreen to false
    play "harpsichord"
  end repeat
  choose browse tool
end Count

on ZERO
  put empty into ien1
  put empty into ien2
  put empty into num
  put empty into x
  put empty into y
  put empty into z
  put empty into w
  put empty into v
  put empty into ss
  put empty into rr
  put empty into adjust
  put empty into cheer
  put empty into points
  put empty into str
  put empty into str2
  put empty into punch
  put empty into comb
  put empty into spec1
  put empty into t
  put empty into u
  put empty into string
  put empty into kn1
  put empty into kn2
  put empty into ti
end ZERO



on ENDBOUT
  global winner,ko,f1,f2,first1,first2,rd,score1,score2,repeet
  global loaded1,loaded2
  put 0 into loaded1
  put 0 into loaded2
  put 0 into there
  put empty into fs1
  put empty into fs2
  go to card "STATCARD"
  repeat with i=1 to 20-length(f1)-length(first1)
    put fs1&" " into fs1
  end repeat
  repeat with i=1 to 20-length(f2)-length(first2)
    put fs2&" " into fs2
  end repeat

  repeat with i=1 to the number of words of card field "Stats"
    put word i of card field "Stats" into j
    if j=f1
    then
    put word i+1 of card field "Stats" into w
    put word i+3 of card field "Stats" into l
    put word i+4 of card field "Stats" into ko2
    if winner=f1 then
      put w+1 into word I+1 of card field "Stats"
    else
      put l+1 into word i+3 of card field "Stats"
    end if
    if ko=f1 then put ko2+1 into word I+4 of card field "Stats"
    put 1 into there
    exit repeat
  end if
end repeat

if there<>1 then
  put first1&&f1&fs1 after card field "Stats"
  if winner=f1 then
    put "1 - 0    " after card field "Stats"
  else
    put "0 - 1    " after card field "Stats"
  end if
  if ko=f1 then
    put "1" after card field "Stats"
  else
    put "0" after card field "Stats"
  end if
end if
put 0 into there
put return after card field "Stats"
put empty into i
put empty into j
put empty into w
put empty into l
put empty into ko2
repeat with i=1 to the number of words of card field "Stats"
  put word i of card field "Stats" into j
  if j=f2
  then
  put word i+1 of card field "Stats" into w
  put word i+3 of card field "Stats" into l
  put word i+4 of card field "Stats" into ko2
  if winner=f2 then
    put w+1 into word I+1 of card field "Stats"
  else
    put l+1 into word i+3 of card field "Stats"
  end if
  if ko=f2 then put ko2+1 into word I+4 of card field "Stats"
  put 1 into there
  exit repeat
end if
end repeat

if there<>1 then
  put first2&&f2&fs2 after card field "Stats"
  if winner=f2 then
    put "1 - 0    " after card field "Stats"
  else
    put "0 - 1    " after card field "Stats"
  end if
  if ko=f2 then
    put "1" after card field "Stats"
  else
    put "0" after card field "Stats"
  end if
end if

put empty into i
put empty into j
put empty into w
put empty into l
put empty into ko2

put winner&&"won " into b
if ko="none" then
  if winner=f1 then
    put score1&&"-"&&score2 into it
  else
    put score2&&"-"&&score1 into it
  end if
  put b&"by decision, "&it into b
else
  put b&"by knockout in round "&rd&"." into b
end if
put first1&&f1&&"vs."&&first2&&f2&return&"in a "&repeet&&"round bout."&RETURN&b into card field "LastFight"
end ENDBOUT